home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _IEFormElementOptionSelect.au3 < prev    next >
Encoding:
Text File  |  2006-07-14  |  3.1 KB  |  72 lines
  1. ; *******************************************************
  2. ; Example 1 - Open a browser with the form example, get reference to form, get reference
  3. ;                to select element, cycle 10 times selecting options byValue, byText and byIndex
  4. ;                Note: You will likely need to scroll down on the page to see the changes
  5. ; *******************************************************
  6. ;
  7. #include <IE.au3>
  8. $oIE = _IE_Example ("form")
  9. $oForm = _IEFormGetObjByName ($oIE, "ExampleForm")
  10. $oSelect = _IEFormElementGetObjByName ($oForm, "selectExample")
  11. For $i = 1 To 10
  12.     _IEFormElementOptionSelect ($oSelect, "Freepage", 1, "byText")
  13.     Sleep(1000)
  14.     _IEFormElementOptionSelect ($oSelect, "midipage.html", 1, "byValue")
  15.     Sleep(1000)
  16.     _IEFormElementOptionSelect ($oSelect, 0, 1, "byIndex")
  17.     Sleep(1000)
  18. Next
  19.  
  20. ; *******************************************************
  21. ; Example 2 - Open a browser with the form example, get reference to form, get reference
  22. ;                to select multiple element, cycle 5 times selecting and then deselecting
  23. ;                options byValue, byText and byIndex.
  24. ;                Note: You will likely need to scroll down on the page to see the changes
  25. ; *******************************************************
  26. ;
  27. #include <IE.au3>
  28. $oIE = _IE_Example ("form")
  29. $oForm = _IEFormGetObjByName ($oIE, "ExampleForm")
  30. $oSelect = _IEFormElementGetObjByName ($oForm, "multipleSelectExample")
  31. For $i = 1 To 5
  32.     _IEFormElementOptionSelect ($oSelect, "Carlos", 1, "byText")
  33.     Sleep(1000)
  34.     _IEFormElementOptionSelect ($oSelect, "Name2", 1, "byValue")
  35.     Sleep(1000)
  36.     _IEFormElementOptionSelect ($oSelect, 5, 1, "byIndex")
  37.     Sleep(1000)
  38.     _IEFormElementOptionSelect ($oSelect, "Carlos", 0, "byText")
  39.     Sleep(1000)
  40.     _IEFormElementOptionSelect ($oSelect, "Name2", 0, "byValue")
  41.     Sleep(1000)
  42.     _IEFormElementOptionSelect ($oSelect, 5, 0, "byIndex")
  43.     Sleep(1000)
  44. Next
  45.  
  46. ; *******************************************************
  47. ; Example 3 - Open a browser with the form example, get reference to form, get reference
  48. ;                to select element, check to see if the option "Freepage" is selected and
  49. ;                report result.  Repeat for the option with index 0 and for the option
  50. ;                with value of 'midipage.html'
  51. ;                Note: You will likely need to scroll down on the page to see the changes
  52. ; *******************************************************
  53. ;
  54. #include <IE.au3>
  55. $oIE = _IE_Example ("form")
  56. $oForm = _IEFormGetObjByName ($oIE, "ExampleForm")
  57. $oSelect = _IEFormElementGetObjByName ($oForm, "selectExample")
  58. If _IEFormElementOptionSelect ($oSelect, "Freepage", -1, "byText") Then
  59.     MsgBox(0, "Option Selected", "Option Freepage is selected")
  60. Else
  61.     MsgBox(0, "Option Selected", "Option Freepage is Not selected")
  62. EndIf
  63. If _IEFormElementOptionSelect ($oSelect, 0, -1, "byIndex") Then
  64.     MsgBox(0, "Option Selected", "The First (index 0) option is selected")
  65. Else
  66.     MsgBox(0, "Option Selected", "The First (index 0) option is Not selected")
  67. EndIf
  68. If _IEFormElementOptionSelect ($oSelect, "midipage.html", -1, "byValue") Then
  69.     MsgBox(0, "Option Selected", "The option with value 'midipage.html' is selected")
  70. Else
  71.     MsgBox(0, "Option Selected", "The option with value 'midipage.html' is NOT selected")
  72. EndIf